* ======================================
* ----------- Distance plots -----------
* ======================================


	use $dta\EstimationSample.dta, clear

	* Fam1
	preserve
	keep if Fam1 == 1
	drop if Fam1Any == 1 & Fam1Pol_dist == . // Missing distance
	run $prog\prog_distplot "Fam1" 9 3 10 200 5 "small" "vsmall" "medsmall" ///
		"vsmall" "medium" "medium" 5.5 0.06 0.03 0.10 0.05 "Fam1Dist" ///
		"Panel A: Family" Voter_turnout
	restore

	* Work1
	preserve
	keep if Work1 == 1
	drop if Work1Any == 1 & Work1Pol_dist == . // Missing distance
	run $prog\prog_distplot "Work1" 9 3 10 200 5 "small" "vsmall" "medsmall" ///
		"vsmall" "medium" "medium" 5.5 0.06 0.03 0.06 0.03 "Work1Dist" ///
		"Panel B: Co-workers" Voter_turnout
	restore

	* Imm1
	preserve
	keep if Imm1 == 1
	drop if Imm1Any == 1 & Imm1Pol_dist == . // Missing distance
	run $prog\prog_distplot "Imm1" 9 3 10 200 5 "small" "vsmall" "medsmall" ///
		"vsmall" "medium" "medium" 5.5 .12 0.06 .24 0.12 "Imm1Dist" ///
		"Panel C: Immigrants" Voter_turnout
	restore

	graph combine Fam1Dist Work1Dist Imm1Dist, ysize(8) col(1) scheme(plotplain)
	graph export "$figs\DistplotsNarrow.pdf",replace

